home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.38
/
forum
/
kp-mp3-fehler
< prev
next >
Wrap
Text File
|
1980-01-01
|
3KB
|
113 lines
Yho, hier habe ich einige Fehler in KickPascal 2.12/OS2-Includes
und MaxonPASCAL 3.00/OS3.1-Includes
aufgelistet, PackMAN.
(Thanx 4 first error Røgersøft)
----------------------------------------------------------------------
Includes/intuition.lib
Zeile 37: muß es "p_Requester" also so heißen:
-156 : PROCEDURE ModifyProp(A0:p_Gadget; A1:p_Window;
A2:p_Requester; D0,D1,D2,D3,D4:Long)
----------------------------------------------------------------------
Includes/Workbench/startup.h
Includedatei muß folgendermaßen aussehen:
{$if not def WORKBENCH_STARTUP_H} CONST WORKBENCH_STARTUP_H=0;
{*********************************************************************
** KickPascal-Include-Datei "Workbench/Startup.h" zu Kickstart 3.0 **
********************************************************************* }
{richtiggestellte Version von: Falk Zühlsdorff (PackMAN) 22.06.1994
bereits unter KP2.12/OS2-Includes falsch, vergl. RKRM_Libraries S.348}
TYPE p_WBStartup = ^WBStartup;
TYPE p_WBArg = ^WBArg;
{$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
{$if not def LIBRARIES_DOS_H;incl "libraries/dos.h";endif}
TYPE WBArg = RECORD
wa_Lock : BPTR;
wa_Name : Str;
END;
TYPE WBStartup = RECORD
sm_Message : Message;
sm_Process : p_MsgPort;
sm_Segment : BPTR; {Fehler: sm_ArgList : p_WBArg;}
sm_NumArgs : Long;
sm_ToolWindow : Str;
sm_ArgList : ^ARRAY[1..MAXINT] OF WBArg;
END;
{$endif}
----------------------------------------------------------------------
Include/intuition/screen.h (Problem, bei Lsg. --> PackMAN)
TYPE DrawInfo = RECORD
dri_Version : Word;
dri_NumPens : Word;
dri_Pens : ^Word; <--- Problem
dri_Font : p_TextFont;
dri_Depth : Word;
dri_Resolution : RECORD
X : Word;
Y : Word;
END;
dri_Flags : Long;
dri_CheckMark : p_Image;
dri_AmigaKey : p_Image;
dri_Reserved : ARRAY[0..4] OF Long;
END;
dri_Pens : ^Word; Wie soll kann man sich das vorstellen ?
Die Struktur soll die Farbnummern von Detailpen bis HiFillText-
Pen etc. enthalten...
in C ist die Struktur (ltd. ROM Kernel Reference Manual Libraries
S.57 )
folgende: UWORD penvalue=myDrawInfo->dri_pens[Penname]
wobei mydrawinfo Zeiger auf drawinfo ist
[] gibt ja auf jeden Fall die Existenz eines Feldes an....
Ich hoffe jemand findet den Fehler, denn selbst bei
dri_Pens : array[0..20] of word;
gab es bei folgendem Versuch einer Abfrage von BLOCKPEN
einen "Type error" :
x:integer
mydrawinfo:^drawinfo;
... getDrawinfo etc...
x:=mydrawinfo^.dri_pens[BLOCKPEN];
^---- hier kam es dann zu Problemen.
Schickt mir dann die Idee (evtl. Include-File) und ich kann es
dann auf der Purity richigstellen.
---------------------------------------------------------------------